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Figure 4 
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Subscriber "leaves" L=2 

Figure 8 
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Begin RoutePacket 0 
Define L of type Address; 

Define next_channel, input_channel of type Channel; 
Define msg of type Message; 
Import messageQueue of type Queue; 

forever 

if length of (messageQueue) > O then 

dequeueMessage (messageQueue, (msg, input_channel)); 

if msg«status - Returned then 

— this message has been returned. 
handleReturnedMessage (msg, input_channel); 

else 

— Pass message on to next node* 
set L := msg.L 

if L = my_L then 

— Packet has arrived - terminates here. 

ProcessCell (msg.ceil); 

else 

set next_channel := decideNextChannel (L,my_L); 

if next_channel - NoBestChannel then 
set msg.status := Returned; 
set next^channel := input_chaunel; 

end if 

SendPacketToChannel (msg, next_channel); 

end if 

end if 

end if 

end 

end RoutePacket 
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Begin decideNextChannel (Address L, Address my_L) of type Channel 
define hop of type Address; 

define weightedChannelSum, sum, weightedChannel of type Real Number; 
define bestChannei of type Channel; 
define j, anuseableChanneJs of type Integer; 

set hop L - mv^L; 

set weightedChannelSum 0.0; 

set sum := 0,0; 

for j := 0 to Length of(hop) 

{ . . 

if ChannelUtilisation (j) > MaximumChannelUtilisation then 

set unuseableChannels unuseableChanneis + 1; 

end if 

set weightedChannelSum:= weightedChanneiSum+hopQ]*j/ChannelUtilisation (j); 
set sum := sum hop [j] / ChannelUtilisation [j]; 

} 

if unuseableChannels = ActiveChannels then 

— message cannot be forwarded from this node must be handed back to sender. 

return NoBestChannci; 
end if 

set weightedChanne! := weightedChannelSum / sum; 

set bestChannei MapWeightedChanneiToBestChannei (weightedChannel); 

return bestChannei; 
end decideNextChannel 
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